#!/usr/bin/perl
use strict;

while (<>) {
  s/directory entry/_file_/ig;
  s/directory entries/_files_/ig;
  print $_;
  print "\n";
}
